home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS075.dsk / HEXCON.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  31 lines
  1. 10  TEXT : HOME :A$ = "HEXCON":L =  LEN(A$): PRINT  TAB( (40 -L)/2);A$: PRINT  TAB( (40 -L)/2);: FOR I = 1 TO L: PRINT "^";: NEXT : PRINT 
  2. 20  PRINT " INPUT"; TAB( 11);"$HEX"; TAB( 21);"POS"; TAB( 31);"<"; CHR$(92);"32768"; CHR$(92)
  3. 30  VTAB 24: PRINT "**PRESS 'RETURN' WHEN FINISHED**";: POKE 35,23: POKE 34,4: VTAB 4: PRINT 
  4. 50  INPUT Z$: IF Z$ = ""  THEN  TEXT : END 
  5. 60 L =  LEN(Z$) -1: IF L >5  THEN  GOSUB 800: GOTO 50
  6. 70  IF  ASC(Z$) = 36 GOTO 400
  7. 200 M =  INT( VAL(Z$)):K = M:G$ = ""
  8. 210  IF K <0  THEN K = M +65536
  9. 220  IF K <0  THEN  GOSUB 800: GOTO 50
  10. 230 I =  INT(K)
  11. 240 J% = I/16 +.01:K% = I -16 *J%:K$ =  STR$(K%)
  12. 250  IF K% >9  THEN K$ =  CHR$(K% +55)
  13. 260 G$ = K$ +G$
  14. 270  IF J% = 0  THEN H$ = "$" +G$: GOTO 470
  15. 280 I = J%: GOTO 240
  16. 400 J = 0:K = 0:H$ = Z$:G$ =  RIGHT$(Z$,L)
  17. 410  FOR I = 1 TO L:K = 16 *(K +J):K$ =  MID$ (G$,I,1):J =  ASC(K$)
  18. 420  IF J >70  OR J <48  THEN  GOSUB 800: GOTO 50
  19. 430  IF J >64  THEN J = J -55: GOTO 460
  20. 440  IF J >57  THEN  GOSUB 800: GOTO 50
  21. 450 J = J -48
  22. 460  NEXT :K = K +J:M = K
  23. 470  IF M >32767  THEN M = K -65536
  24. 700  GOSUB 800
  25. 710  PRINT " ";Z$; TAB( 11);H$; TAB( 21);K; TAB( 31);M: GOTO 50
  26. 800 CV =  PEEK(37): VTAB CV: RETURN 
  27. 810 :
  28. 65532  REM    BY DAVE EDMUNDS,    1 JUL 80
  29. 65533  REM 
  30. 65534  REM    HEXCON
  31. 65535  REM